00100	(DF DEFUN(L)(PROG(IND)(RETURN(PROG2
00200	(COND((AND(ATOM(SETQ IND(CADR L)))(MEMQ IND (QUOTE(EXPR FEXPR MACRO))))
00300	(PUTPROP(CAR L)(CONS (QUOTE LAMBDA)(CDDR L)) IND))
00400	(T(PUTPROP (CAR L)(CONS (QUOTE LAMBDA)(CDR L)) (QUOTE EXPR))))(CAR L)))))
00500	(DF DECLARE(L)(MAP(FUNCTION(LAMBDA(X)(EVAL (CAR X))))L))
00600	(DE GLOBAL L L)(DF RESERVED(L)L)(DF MACROS(L)L)
00700	(DF *EXPR(L)(MAP (FUNCTION (LAMBDA(X)(PUTPROP (CAR X) T (QUOTE *SUBR)))) L))
00800	(DF *FEXPR(L)(MAP (FUNCTION (LAMBDA(X)(PUTPROP (CAR X) T (QUOTE *FSUBR)))) L))
00900	(DF *LEXPR(L)(MAP (FUNCTION (LAMBDA(X)(PUTPROP (CAR X) T (QUOTE *LSUBR)))) L))
01000	(DF **ARRAY(L)(MAP (FUNCTION (LAMBDA(X)(PUTPROP (CAR X) NIL (QUOTE *ARRAY)))) L))
01100	(DF FUNCTIONS(L) (CONS (QUOTE FUNCTIONS) L))
01200	(DF SYMBOLS(L)L)(DF GENPREFIX(L)L)
01300	(DF SPECIAL(L)(MAP(FUNCTION(LAMBDA(X)(PUTPROP(CAR X) T (QUOTE SPECIAL)))) L))
01400	(DF UNSPECIAL(L)(MAP(FUNCTION(LAMBDA(X)(REMPROP(CAR X)  (QUOTE SPECIAL)))) L))
01500